home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Mouse Logitech.xpl < prev    next >
Encoding:
Text File  |  1998-08-08  |  1.3 KB  |  48 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="General Usage\Mouse"
  5. "NAME"="Logitech Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Use middle mouse-button as double-click"
  8. "DESCRIPTION 1"="If the middle mouse-button is currently unused, you can use it as a shortcut to a double-click."
  9. "DESCRIPTION 2"="Note that this plug-in will be usable only if you are using a Logitech mouse and the drivers are correctly installed."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  13. "COMMENT 2"="Version 1.1"
  14.  
  15.  
  16. sP="HKLM\Software\Logitech\Mouseware\CurrentVersion\"
  17. sR="Global\ActiveMouse"
  18. sV=""
  19. sV2="\0000\DoubleClick"
  20. Sub Plugin_Initialize 
  21.  If RegPathExists(sp) then
  22.   sV=RegReadValue(sp&sr)
  23.   if len(sv)<=0 then
  24.    Disable
  25.   else
  26.    i=RegReadValue(sp&sv&sv2)
  27.    if i="001" then SetUIElement 1,true
  28.   end if 
  29.  else
  30.   Disable
  31.  end if
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.   Call RegWriteValue(sp&sv&sv2,"001",1)
  41.  else
  42.   Call RegWriteValue(sp&sv&sv2,"000",1)
  43.  end if
  44. End Sub
  45.  
  46. Sub Plugin_Terminate 
  47. End Sub
  48.